(LAP DELSTMT SUBR) 
	(JSP 6 SPECBIND) 
	(0 0 (SPECIAL STMT)) 
	(MOVE 1 (SPECIAL WEAK)) 
	(JUMPE 1 TAG5) 
	(MOVEI 1 (QUOTE RACKETSET)) 
	(CALL 1 (E FLSTMT)) 
	(JRST 0 TAG1) 
TAG5 	(MOVE 2 (SPECIAL DLIM)) 
	(MOVE 1 (SPECIAL DELNO)) 
	(CALL 2 (E EQUAL)) 
	(JUMPE 1 TAG7) 
	(MOVEI 2 (QUOTE 1)) 
	(MOVEI 1 (QUOTE DELNO)) 
	(CALL 2 (E SET)) 
	(JRST 0 TAG6) 
TAG7 	(MOVE 1 (SPECIAL DELNO)) 
	(CALL 1 (E ADD1)) 
	(MOVE 2 1) 
	(MOVEI 1 (QUOTE DELNO)) 
	(CALL 2 (E SET)) 
TAG10 
TAG6 	(MOVEI 2 (QUOTE 22)) 
	(MOVE 1 (SPECIAL FEAR)) 
	(CALL 2 (E *GREAT)) 
	(JUMPN 1 TAG14) 
	(MOVEI 2 (QUOTE 22)) 
	(MOVE 1 (SPECIAL ANGER)) 
	(CALL 2 (E *GREAT)) 
	(JUMPN 1 TAG14) 
	(MOVE 2 (SPECIAL ANGER)) 
	(MOVE 1 (SPECIAL FEAR)) 
	(CALL 2 (E *PLUS)) 
	(MOVE 2 (SPECIAL MISTRUST)) 
	(CALL 2 (E *PLUS)) 
	(MOVEI 2 (QUOTE 62)) 
	(CALL 2 (E *GREAT)) 
	(JUMPE 1 TAG13) 
TAG14 	(MOVEI 2 (QUOTE NIL)) 
	(MOVEI 1 (QUOTE DELFLAG)) 
	(CALL 2 (E SET)) 
	(MOVEI 1 (QUOTE CHANGESUBJ)) 
	(CALL 1 (E CHOOSE)) 
	(JRST 0 TAG1) 
TAG13 	(MOVEI 2 (QUOTE T)) 
	(MOVEI 1 (QUOTE DELFLAG)) 
	(CALL 2 (E SET)) 
	(MOVEI 2 (QUOTE INIT)) 
	(MOVEI 1 (QUOTE FLARE)) 
	(CALL 2 (E SET)) 
	(MOVE 1 (SPECIAL DELNO)) 
	(CALL 1 (E CHOOSEDEL)) 
	(MOVE 2 1) 
	(MOVEI 1 (QUOTE STMT)) 
	(CALL 2 (E SET)) 
	(MOVE 1 (SPECIAL STMT)) 
	(CALL 1 (E DELCHECK)) 
	(MOVE 2 (SPECIAL DELNO)) 
	(MOVEI 1 (QUOTE "DEL")) 
	(CALL 2 (E CAT)) 
	(CALL 1 (E AT)) 
	(MOVE 2 1) 
	(MOVEI 1 (QUOTE LASTSTMT)) 
	(CALL 2 (E SET)) 
	(MOVE 1 (SPECIAL STMT)) 
TAG1 	(JRST 0 SPECSTR) 
	NIL